home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gs_l2img.ps < prev    next >
Text File  |  1996-01-10  |  6KB  |  170 lines
  1. %    Copyright (C) 1995 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Emulate the Level 2 dictionary-based image operator in Level 1,
  19. % except for Interpolate (ignored) and MultipleDataSources = true;
  20. % also, we require that the data source be either a procedure of a
  21. % particular form or a stream, not a string or a general procedure.
  22.  
  23. /currentglobal where
  24.  { pop currentglobal { setglobal } true setglobal }
  25.  { { } }
  26. ifelse
  27.  
  28. 7 dict /.csncompdict 1 index def begin
  29.   /DeviceGray { 1 /setgray load } bind def
  30.   /DeviceRGB { 3 /setrgbcolor load } bind def
  31.   /DeviceCMYK { 4 /setcmykcolor load } bind def
  32.   /Indexed
  33.    { dup 1 index 1 get //.csncompdict exch get exec
  34.         % Stack: [/Indexed base hival map] ncomp basesetcolor
  35.      3 -1 roll 3 get mark 3 1 roll
  36.         % Stack: ncomp -mark- basesetcolor map
  37.      dup type /stringtype eq
  38.       { 3 index
  39.      { -
  40.         { exch round cvi get 255 div
  41.         }
  42.        -
  43.         { exch round cvi 3 mul 2 copy 2 copy get 255 div
  44.           3 1 roll 1 add get 255 div
  45.           4 2 roll 2 add get 255 div
  46.         }
  47.         { exch round cvi 4 mul 2 copy 2 copy 2 copy get 255 div
  48.           3 1 roll 1 add get 255 div
  49.           4 2 roll 2 add get 255 div
  50.           5 3 roll 3 add get 255 div
  51.         }
  52.      }
  53.     exch get aload pop counttomark -1 roll
  54.       }
  55.       { /exec load 3 -1 roll
  56.         % -mark- <mapproc> -exec- <basesetcolor>
  57.       }
  58.      ifelse .packtomark cvx
  59.      exch pop 1 exch
  60.    } bind def
  61.   /Separation
  62.    { dup 2 index //.csncompdict exch get exec
  63.         % Stack: [/Separation name alt xform] ncomp altsetcolor
  64.      3 -1 roll 3 get /exec load 3 -1 roll 3 array astore readonly cvx
  65.      exch pop 1 exch
  66.    } bind def
  67.     % Substitute device spaces for CIE spaces.
  68.   /CIEBasedA /DeviceGray load def
  69.   /CIEBasedABC /DeviceRGB load def
  70.   /CIEBasedDEF /DeviceRGB load def
  71.   /CIEBasedDEFG /DeviceCMYK load def
  72. end
  73.  
  74. /.packtomark /packedarray where
  75.  { pop { counttomark packedarray exch pop } }
  76.  { { ] readonly } }
  77. ifelse bind def
  78.  
  79. /.csinextbits        % - .csinextbits <bits>
  80.             % Uses b, nb, i, row, mask, BitsPerComponent;
  81.             % sets b, nb, i.
  82.  { /nb nb
  83.     { dup BitsPerComponent ge { exit } if
  84.       /b b 8 bitshift row i get add def
  85.       /i i 1 add def  8 add
  86.     }
  87.    loop
  88.    BitsPerComponent sub def
  89.    b nb neg bitshift mask and
  90.  } bind def
  91.  
  92. /colorspaceimage    % <width> <height> <bits/comp> <matrix>
  93.             %   <datasrc> <decode> <colorspace> colorspaceimage -
  94.  { save 8 1 roll 20 dict begin
  95.    cvlit /colorspace exch def  cvlit /Decode exch def
  96.    /DataSource exch def  cvlit /ImageMatrix exch def
  97.    /BitsPerComponent exch def  /Height exch def  /Width exch def
  98.    colorspace dup 0 get .csncompdict exch get exec
  99.      /setpixelcolor exch def  /ncomp exch def  pop
  100.    /bpp ncomp BitsPerComponent mul def
  101.    /row bpp Width mul 7 add 8 idiv string def
  102.    languagelevel 2 gt    %****** ge
  103.     { colorspace setcolorspace /ImageType 1 def
  104.       currentdict image
  105.     }
  106.     { /mask 1 BitsPerComponent bitshift 1 sub def
  107.       /nextbits BitsPerComponent 8 eq
  108.        { mark row { i get /i i 1 add def } aload pop .packtomark cvx }
  109.        { /.csinextbits load }
  110.       ifelse def
  111.       /nextpixel mark 0 2 ncomp 1 sub 2 mul
  112.        { /nextbits cvx exch
  113.      Decode exch 2 getinterval
  114.      dup aload pop exch sub
  115.      dup mask eq { pop } { mask div /mul load 3 -1 roll } ifelse
  116.      0 get dup 0 eq { pop } { /sub load 3 -1 roll } ifelse
  117.        }
  118.       for
  119.       /setpixelcolor load dup type /operatortype ne { /exec load } if
  120.       .packtomark cvx def
  121.       /readrow { DataSource row readstring pop pop }
  122.         /DataSource load dup type
  123.         dup /arraytype eq exch /packedarraytype eq or
  124.     {    % Must be { <file> <string> readhexstring pop }
  125.       0 get row /readhexstring load /pop load
  126.       4 array astore cvx exch pop
  127.     }
  128.     { pop
  129.     }
  130.       ifelse def
  131.       ImageMatrix matrix invertmatrix concat
  132.       0 1 Height 1 sub
  133.        { gsave 0 exch translate
  134.      readrow
  135.      /b 0 def  /nb 0 def  /i 0 def
  136.      Width
  137.       { nextpixel
  138.         1 1 true {1 0 0 1 0 0} {<80>} imagemask
  139.         1 0 translate
  140.       }
  141.      repeat grestore
  142.        }
  143.       for
  144.     }
  145.    ifelse end restore
  146.  } bind def
  147.  
  148. % Patch for testing.
  149. /.cincompdict 3 dict begin
  150.   1 { {0 1} {/DeviceGray} } def
  151.   3 { {0 1 0 1 0 1} {/DeviceRGB} } def
  152.   4 { {0 1 0 1 0 1 0 1} {/DeviceCMYK} } def
  153. currentdict end def
  154. /colorimage        % <width> <height> <bits/comp> <matrix>
  155.             %   <datasrc> false <ncomp> colorimage -
  156.  { 1 index { /colorimage load /rangecheck signalerror } if exch pop
  157.    //.cincompdict exch get exec colorspaceimage
  158.  } bind odef
  159. /image
  160.  { dup type /dicttype ne
  161.     { //image }
  162.     { begin /Width load /Height load /BitsPerComponent load
  163.       /ImageMatrix load /DataSource load /Decode load currentcolorspace
  164.       end colorspaceimage
  165.     }
  166.    ifelse
  167.  } bind odef
  168.  
  169. exec
  170.